home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / screen banner64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  72 lines
  1. 5 ifcothensys64738
  2. 100 gosub 5000
  3. 110 gosub 5200
  4. 120 gosub 5400
  5. 130 goto 5600
  6. 5000 :
  7. 5010 :
  8. 5012 poke53281,10:poke53280,5
  9. 5020 printchr$(147)chr$(142)
  10. 5030 print"           screen banner 64:"
  11. 5040 print"           -----------------"
  12. 5050 print"             by ian adam"
  13. 5060 print" this program scrolls a banner message"
  14. 5070 print"    across the bottom of the screen"
  15. 5080 print"    using the 64's split screen and"
  16. 5090 print"     fine-scrolling capabilities."
  17. 5100 return
  18. 5110 :
  19. 5200 rem poke data
  20. 5210 :
  21. 5220 print"          now loading data..."
  22. 5230 fori=49152to49291
  23. 5240 readx:pokei,x
  24. 5250 ch=ch+x:next
  25. 5260 ifch<>18358thenprint"checksum error - double-check data!":stop
  26. 5270 return
  27. 5280 :
  28. 5290 :
  29. 5300 :
  30. 5310 data120,169,127,141,13,220,169,1,141,26,208,169,27,141,17,208,169,28
  31. 5320 data141,20,3,169,192,141,21,3,88,96,173,25,208,141,25,208,162,0
  32. 5330 data189,130,192,141,24,208,189,132,192,141,33,208,189,134,192,141
  33. 5340 data22,208,189,136,192,141,18,208,138,73,1,141,35,192,240,3,76,188
  34. 5350 data254,165,162,73,7,41,7,141,134,192,201,7,208,43,174,138,192,232
  35. 5360 data236,139,192,208,2,162,0,142,138,192,160,216,189,140,192,153,232
  36. 5370 data2,232,236,139,192,208,2,162,0,200,208,239,169,0,160,39,153,192
  37. 5380 data219,136,16,250,76,49,234,5,21,14,6,7,200,250,242,235,255
  38. 5390 :
  39. 5400 :
  40. 5410 :
  41. 5420 print"  *press return to proceed[145]":inputa$
  42. 5430 print"[147]";
  43. 5440 a$="                                        "
  44. 5450 fori=1to3:printa$:next
  45. 5460 printtab(15)chr$(18)a$
  46. 5470 print"type message in area above, using lots"
  47. 5480 print"of space, then press return"
  48. 5490 poke631,19:poke198,1
  49. 5500 inputa$
  50. 5510 a=49291:b=1023
  51. 5520 fori=1to255
  52. 5530 pokea+i,peek(b+i):next
  53. 5540 poke49285,10:return
  54. 5550 :
  55. 5600 :
  56. 5610 tc=1:sc=0:bc=2:sys49152
  57. 5620 print"adjustments:":print"                              "
  58. 5630 print"f1- change banner text color":rem     49270, text colour"
  59. 5640 [153]"f3- change banner color":[143]   49284, colour of banner"
  60. 5650 print"f5- change screen color":rem   49285, colour of main screen"
  61. 5660 [153]"f7- enter new message"
  62. 5670 [153]"sys49152 enables message"
  63. 5680 [153]"press 'l' to return to loadstar"
  64. 5700 [161]a$
  65. 5710 [139]a$[178]"input"[167]tc[178]tc[170]1:[139]tc[177]15[167]tc[178]0
  66. 5720 [139]a$[178]"dim"[167]bc[178]bc[170]1:[139]bc[177]15[167]bc[178]0
  67. 5730 [139]a$[178]"read"[167]sc[178]sc[170]1:[139]sc[177]15[167]sc[178]0
  68. 5740 [139]a$[178]"let"[167][141]5430:[137]5600
  69. 5750 [139]a$[178]"l"[176]a$[178]"(NULL)"[167]6000
  70. 5760 [151]49270,tc:[151]49284,bc:[151]49285,sc:[137]5700
  71. 6000 co[178]1:[151]928,0:[147]"magic iii",8,1
  72.